10 REM     ***********************
20 REM     *    "CIRCLE DEMO"    *
30 REM     *   VON LEIF KOBBELT  *
40 REM     *   7500 KARLSRUHE 1  *
50 REM     *  GRAF-RHENASTR. 23  *
60 REM     ***********************
70 :
80 :
100 IFA=0THENA=1:LOAD"CIRCLE.CODE",8,1
110 :
120 FORA=828TO870:READB:POKEA,B:NEXT
130 GCLEAR=828:REVERSE=848:CIRCLE=49152
140 :
200 POKE53265,59:POKE53272,24:PRINT"[147]"
210 SYS GCLEAR
220 :
300 X=INT(RND(42)*320)
310 Y=INT(RND(42)*200)
320 R=INT(RND(42)*50)+25:R1=R*.9
330 D=INT(RND(42)*10)+3
340 SYS REVERSE
350 SYS CIRCLE,X,Y,R,R1
360 SYS CIRCLE,X,Y,R+1,R1+1
370 SYS CIRCLE,X,Y,R-D-1,R1-D-1
380 SYS CIRCLE,X,Y,R-D-2,R1-D-2
390 SYS REVERSE
400 FORA=1TOD
410 SYS CIRCLE,X,Y,R-A,R1-A
420 NEXTA
430 GOTO300
440 :
450 :
1000 DATA 169,0,168,162,32,132,20,134
1010 DATA 21,145,20,200,208,251,232,224
1020 DATA 64,208,244,96,160,0,162,32
1030 DATA 132,20,134,21,177,20,73,255
1040 DATA 145,20,200,208,247,232,224,64
1050 DATA 208,240,96